-- stack: in.1a2
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2777
-- card count: 3
-- first card id: 5393
-- list block id: 2149
-- print block id: 3528
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 35968 bytes
-- stack block size: 7168 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xFF00FF00FF00FF00
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x5555555555555555
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global clippingStr
  global onWhat
  global opusOn
  global delphiOn
  global maugOn
  global fidoOn
  global usenetOn
  global genieOn
  global otherOn
  set lockscreen to true
  if the number of this card = 1 then
    clearHelp
    set hilite of bkgnd button fido to true
    set hilite of bkgnd button opus to false
    set hilite of bkgnd button compuserve to false
    set hilite of bkgnd button delphi to false
    set hilite of bkgnd button genie to false
    set hilite of bkgnd button picospan to false
    set hilite of bkgnd button other to false
    set visible of card field "no clone" to false
  end if
  put "n" into delphiOn
  put "n" into opusOn
  put "n" into maugOn
  put "n" into usenetOn
  put "n" into genieOn
  put "n" into otherOn
  put "y" into fidoOn
  put "fido" into onWhat
  hide menubar
  set cursor to 4
  show message box
  domenu "Find..."
  global whatOn
  put "fido" into whatOn
  go card 2
  put field clipping into clippingStr
  go card 1
  set lockscreen to false
end openStack

on closeStack
  global clippingStr
  set lockscreen to true
  set cursor to 4
  go card 2
  put clippingStr into field clipping
  go card 1
  set hilite of bkgnd button fido to true
end closeStack

on deleteIt
  global delDate
  put "n" into deleted
  put field date into theDate
  if (theDate = "*") then put empty into theDate
  convert theDate to seconds
  if (theDate <> 0) and ((theDate - delDate) < 0) then
    put "Deleting card #" & field "card #" & " (" & the number of cards & ")" into message
    domenu "delete card"
    put "y" into deleted
  end if
  if (deleted = "n") then
    put "Keeping card #" & field "card #" & " (" & the number of cards & ")" into message
    go next card
  end if
end deleteIt

on deleteDate
  global deleteMode
  global delDate
  put "y" into deleteMode
  ask "Earliest date of articles to keep?"
  if it is empty then exit deleteDate
  set lockscreen to true
  set cursor to 4
  put it into delDate
  convert delDate to seconds
  go card 4
  set lockscreen to true
  set cursor to 4
  repeat until (the number of this card) = (the number of cards)
    deleteIt
  end repeat
  deleteIt
  go card 1
  put "n" into deleteMode
  put "All Done" into message
  beep
end deleteDate

on doHelp
  set lockscreen to true
  set visible of card field "help 1" to true
  set visible of card button "reading text" to true
  set visible of card button "suggestions" to true
  set visible of card button "housekeeping" to true
  set visible of card button "clipping" to true
  set visible of card button "version info" to true
  set lockscreen to false
end doHelp

on clearHelp
  set lockscreen to true
  set visible of card field "Help 3" to false
  set visible of card button "reading text" to false
  set visible of card field "Help 2" to false
  set visible of card button "suggestions" to false
  set visible of card field "help 4" to false
  set visible of card button "housekeeping" to false
  set visible of card button "clipping" to false
  set visible of card field "help 5" to false
  set visible of card button "version info" to false
  set visible of card field "help 6" to false
  set visible of card field "Help 1" to false
  set lockscreen to false
end clearHelp

on displayAdd
  global addOn
  global whatOn
  put "y" into addOn
  set lockscreen to true
  set visible of bkgnd field "services" to true
  set visible of bkgnd button fido to true
  set visible of bkgnd button opus to true
  set visible of bkgnd button compuserve to true
  set visible of bkgnd button delphi to true
  set visible of bkgnd button picospan to true
  set visible of bkgnd button genie to true
  set visible of bkgnd button other to true
  if whatOn = "other" then
    set visible of bkgnd field "other" to true
  end if
  set lockscreen to false
end displayAdd

on addOff
  global addOn
  put "n" into addOn
  set lockscreen to true
  set visible of bkgnd button fido to false
  set visible of bkgnd button opus to false
  set visible of bkgnd button compuserve to false
  set visible of bkgnd button delphi to false
  set visible of bkgnd button picospan to false
  set visible of bkgnd button genie to false
  set visible of bkgnd button other to false
  set visible of bkgnd field "other" to false
  set visible of bkgnd field "services" to false
  set lockscreen to false
end addOff

on viewOff
end viewOff
on deleteOff
end deleteOff

on opusOff
  global opusOn
  put "n" into opusOn
  set hilite of bkgnd button opus to false
end opusOff

on delphiOff
  global delphiOn
  put "n" into delphiOn
  set hilite of bkgnd button delphi to false
end delphiOff

on maugOff
  global maugOn
  put "n" into maugOn
  set hilite of bkgnd button compuserve to false
end maugOff

on fidoOff
  global fidoOn
  put "n" into fidoOn
  set hilite of bkgnd button fido to false
end fidoOff

on usenetOff
  global usenetOn
  put "n" into usenetOn
  set hilite of bkgnd button picospan to false
end usenetOff

on genieOff
  global genieOn
  put "n" into genieOn
  set hilite of bkgnd button genie to false
end genieOff

on otherOff
  global otherOn
  put "n" into otherOn
  set hilite of bkgnd button other to false
  set visible of bkgnd field other to false
end otherOff

on cloneStack
  -- This doesn't work yet.  Bail out with an error message…
  set visible of card field "no clone" to true
  beep
  exit cloneStack
  put the name of this stack into oldStack
  go card 1
  domenu "New Stack..."
  ask "Please re-enter the new stack name"
  put it into newStack
  domenu "copy card"
  open stack newStack
  domenu "paste card"
  go card 1
  domenu "delete card"
  put "go " & oldStack into it
  do it
  go card 2
  domenu "copy card"
  open stack newStack
  domenu "paste card"
  put "go " & oldStack into it
  do it
  go card 3
  domenu "copy card"
  open stack newStack
  domenu "paste card"
  put "go " & oldStack into it
  do it
end cloneStack